home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / qb_herc.arc / TEST.BAS < prev   
Encoding:
BASIC Source File  |  1987-02-04  |  766 b   |  35 lines
  1. A$="Welcome my friends to the show that never ends !!"
  2. B$="Hercules graphics support for Quick Basic"
  3. C$="by"
  4. D$="Mark Victor"
  5. A%=1
  6. CALL HMODE(A%)
  7. FOR Z%=0 TO 719
  8. Q%=175+(85)*(sin(Z%/12))
  9. S%=175+(15)*(sin(Z%/25.5))
  10. CALL HPOINT(Z%,Q%,1)
  11. CALL HPOINT(Z%,S%,1)
  12. NEXT Z%
  13. CALL HLINE(0,0,719,347,1)
  14. CALL HLINE(0,347,719,0,1)
  15. CALL HLINE(0,174,719,174,1)
  16. CALL HLINE(359,0,359,347,1)
  17. CALL HPRINT(C$,650,20,1)
  18. CALL HPRINT(D$,650,10,1)
  19. B%=359 : C%=200
  20. CALL HPRINT(A$,B%,C%,1)
  21. B%=359:  C%=150
  22. CALL HPRINT(B$,B%,C%,1)
  23. CALL HLINE(0,0,719,0,1)
  24. CALL HLINE(719,0,719,347,1)
  25. CALL HLINE(719,347,0,347,1)
  26. CALL HLINE(0,347,0,0,1)
  27. 100 ZZ$ = INKEY$
  28. IF LEN(ZZ$) = 0 GOTO 100
  29. A%=0
  30. CALL HMODE(A%)
  31. CLS
  32. LOCATE 12,27
  33. PRINT "And back to text mode !!!"
  34. LOCATE 25,1
  35.